home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / rexx / Homebanking.lha / Homebanking / Vorlage.BSP < prev    next >
Encoding:
Text File  |  1999-03-30  |  2.4 KB  |  81 lines
  1. /*  $VER: Startskript-RexxVersion Version 1.0 vom 30.01.1999
  2.  
  3.     von Frank Seidel
  4.  
  5.     Fr.Seidel@t-online.de
  6.     http://home.t-online.de/home/Fr.Seidel/start.html
  7.  
  8. */
  9.  
  10. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  11.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  12.       EXIT 10
  13. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  14.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  15.       EXIT 10
  16.  
  17. IF ~SHOW('PORTS','TTime2',) THEN do
  18.    address command 'run sys:online/TTime-Deluxe/TTime-Deluxe'
  19.    address command 'wait 3 secs'
  20.    end
  21.  
  22. ADDRESS 'TTime2'
  23. 'TT_VORWAHL *t-online'
  24. ADDRESS 'BLITZBLANK'
  25. 'BLANKTIME=0'
  26.  
  27. address command 'sys:rexxc/rx >NIL: Multiterm:Rexx/@f5'  /* <-- MultitermArexxskriptname */
  28.  
  29. PP = 2
  30. Do while PP > 1
  31. OPTIONS RESULTS
  32.   ADDRESS COMMAND 'wait 2 secs'
  33.   IF ~SHOW('PORTS','MultiTerm_Btx',) THEN
  34.      PP = 0
  35.      address command 'wait 2 secs'
  36.      end
  37.  
  38. Flags = 'rtez_flags = ezreqf_centertext'
  39.  
  40. call rtezrequest('Überweisung erfolgreich ?'||'0A'x||'Multiterm:Rexx/@f5'||'0A'x||'und'||'0A'x||'S:Üwsg/@f6'||'0A'x||'löschen ?','Skripte _löschen|_Skripte nicht löschen','Abfrage',,
  41.      'rt_pubscrname = ''MultiTerm KIT''' 'rt_reqpos = reqpos_centerscr' 'rtez_flags = ezreqf_centertext')
  42.      IF RESULT = 1
  43.         THEN do
  44.         address command 'c:move >NIL: Multiterm:Rexx/@f5 to DH0:trashcan/'
  45.         address command 'c:move >NIL: S:üwsg/@f6 to DH0:trashcan/'
  46.         end
  47.  
  48.  
  49.  
  50. call rtezrequest 'TTime-Logdateien auf DH2 kopieren ?','_na klar doch|_jetzt nicht','Abfrage',Flags
  51.      IF RESULT = 1 THEN do
  52.           ADDRESS 'TTime2'
  53.          'TT_ENDE'
  54.           ADDRESS 'BLITZBLANK'
  55.          'BLANKTIME=300'
  56.           address command 'wait 3 secs'
  57.           address command 'copy >NIL: DH0:Online/TTime-Deluxe/Daten/ to DH2:Online/TTime-Deluxe/Daten/'
  58.           end
  59.      IF RESULT = 0 Then do
  60.      ADDRESS 'TTime2'
  61.       'TT_ENDE'
  62.      ADDRESS 'BLITZBLANK'
  63.       'BLANKTIME=300'
  64. end
  65.  
  66. call rtezrequest 'Programme starten ?','_na klar doch|_jetzt nicht','Abfrage',Flags
  67.      IF RESULT = 1 THEN do
  68.      address command 'c:run c:ed Multiterm:Text/Ueberweisungen.txt'
  69.      address command 'c:run DH0:Work/AmigaKonto/AmigaKonto DH0:Work/AmigaKonto/Konto.99'
  70.      address command 'cd dh0:work/adm/'
  71.         IF ~SHOW('PORTS','ADM.1',) THEN do
  72.         address command 'wbrun DH0:Work/ADM/AddressMaster'
  73.         address command 'wait 2 secs'
  74.         end
  75.      ADDRESS 'ADM.1'
  76.      'SETGROUPS F'
  77.      address command 'c:play16 dh4:Sound/Überweisung.8svx'
  78.      end
  79. exit
  80.  
  81.